home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SATAN11.ZIP / HTML / DATA / SATAN_DA.PL next >
Encoding:
Text File  |  1995-04-01  |  1.7 KB  |  98 lines
  1. #
  2. # Select SATAN data base
  3. #
  4. $_satan_dir = "";
  5. @_results = `ls results`;
  6. for (@_results) { chop; }
  7.  
  8. print CLIENT <<EOF;
  9. <HTML>
  10. <HEAD>
  11. <title> SATAN Data Management </title>
  12. <LINK REV="made" HREF="mailto:satan\@fish.com">
  13. </HEAD>
  14. <BODY>
  15. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> SATAN Data Management </H1>
  16. <hr>
  17.  
  18. <ul>
  19. <p><li><a href="#open">Open or create SATAN database</a>
  20. <p><li><a href="#merge">Merge existing SATAN database</a>
  21. </ul>
  22. <hr>
  23.  
  24. <FORM METHOD=POST ACTION="satan_open_action.pl">
  25.  
  26. <a name="open-or-create"><h3>Open existing or create new SATAN data base</h3>
  27.  
  28. <h3>
  29. <INPUT TYPE="reset" VALUE=" Reset ">
  30. <INPUT SIZE="28" NAME="_satan_dir" Value="$satan_data">
  31. <INPUT TYPE="submit" VALUE=" Open or create ">
  32. </h3>
  33.  
  34. </FORM>
  35.  
  36. EOF
  37.  
  38. if (@_results) {
  39.     print CLIENT <<EOF;
  40.     <h3>Existing data bases...</h3>
  41. EOF
  42. }
  43.  
  44. print CLIENT <<EOF;
  45. <ul>
  46. EOF
  47. for (@_results) {
  48.     if (-d "results/$_") {
  49.         print CLIENT <<EOF;
  50.         <li> <a href="satan_open_action.pl,$_,">$_</a>
  51. EOF
  52.     }
  53. }
  54.  
  55. print CLIENT <<EOF;
  56. </ul>
  57.  
  58. <hr>
  59.  
  60. <FORM METHOD=POST ACTION="satan_merge_action.pl">
  61.  
  62. <a name="merge"><h3>Merge with existing SATAN data base</h3>
  63.  
  64. <h3>
  65. <INPUT TYPE="reset" VALUE=" Reset ">
  66. <INPUT SIZE="28" NAME="_satan_dir" Value="">
  67. <INPUT TYPE="submit" VALUE=" Merge ">
  68. </h3>
  69.  
  70. </FORM>
  71.  
  72. EOF
  73.  
  74. if (@_results) {
  75.     print CLIENT <<EOF;
  76.     <h3>Existing data bases...</h3>
  77. EOF
  78. }
  79.  
  80. print CLIENT <<EOF;
  81. <ul>
  82. EOF
  83.  
  84. for (@_results) {
  85.     if (-d "results/$_") {
  86.         print CLIENT <<EOF;
  87.         <li> <a href="satan_merge_action.pl,$_,">$_</a>
  88. EOF
  89.     }
  90. }
  91.  
  92. print CLIENT <<EOF;
  93. </ul>
  94. <hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a>
  95. </BODY>
  96. </HTML>
  97. EOF
  98.